// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://10.3.7.192:8082/t11183/services/mailandpkgservice?wsdl
//  >Import : http://10.3.7.192:8082/t11183/services/mailandpkgservice?wsdl>0
//  >Import : http://10.3.7.192:8082/t11183/services/mailandpkgservice?wsdl>1
//  >Import : http://10.3.7.192:8082/t11183/services/mailandpkgservice?wsdl>2
//  >Import : http://10.3.7.192:8082/t11183/services/mailandpkgservice?wsdl>3
//  >Import : http://10.3.7.192:8082/t11183/services/mailandpkgservice?wsdl>4
// Encoding : UTF-8
// Version  : 1.0
// (2011-08-18 14:51:15 - - $Rev: 25127 $)
// ************************************************************************ //

unit mailandpkgservice;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_UNBD = $0002;
  IS_NLBL = $0004;
  IS_REF  = $0080;


type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:float           - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]

  TbEvtMailInfoVO      = class;                 { "http://vo.pkg.track.ems.chinapost.gov/xsd"[GblCplx] }
  TbEvtPkgListVO       = class;                 { "http://vo.pkg.track.ems.chinapost.gov/xsd"[GblCplx] }
  LastPkgMailInfoVO    = class;                 { "http://vo.pkg.track.ems.chinapost.gov/xsd"[GblCplx] }
  IPkgService          = class;                 { "http://service.pkg.track.ems.chinapost.gov/xsd"[GblCplx] }
  IQcgzBaseQueryService = class;                { "http://service.ttq.track.ems.chinapost.gov/xsd"[GblCplx] }
  StackStateAllVOSplitRoute = class;            { "http://ttqvo.ttq.track.ems.chinapost.gov/xsd"[GblCplx] }
  StackStateClctVO     = class;                 { "http://ttqvo.ttq.track.ems.chinapost.gov/xsd"[GblCplx] }
  StackStateAllVO      = class;                 { "http://ttqvo.ttq.track.ems.chinapost.gov/xsd"[GblCplx] }
  return               = class;                 { "http://ws.services.ems.chinapost.gov"[Alias] }
  return2              = class;                 { "http://ws.services.ems.chinapost.gov"[Alias] }
  return3              = class;                 { "http://ws.services.ems.chinapost.gov"[Alias] }
  return4              = class;                 { "http://ws.services.ems.chinapost.gov"[Alias] }
  return5              = class;                 { "http://ws.services.ems.chinapost.gov"[Alias] }
  return6              = class;                 { "http://ws.services.ems.chinapost.gov"[Alias] }



  // ************************************************************************ //
  // XML       : TbEvtMailInfoVO, global, <complexType>
  // Namespace : http://vo.pkg.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  TbEvtMailInfoVO = class(TRemotable)
  private
    FbagId: string;
    FbagId_Specified: boolean;
    FmailFeature: string;
    FmailFeature_Specified: boolean;
    FmailNum: string;
    FmailNum_Specified: boolean;
    FmailType: string;
    FmailType_Specified: boolean;
    FpartWeight: Single;
    FpartWeight_Specified: boolean;
    FpostType: string;
    FpostType_Specified: boolean;
    procedure SetbagId(Index: Integer; const Astring: string);
    function  bagId_Specified(Index: Integer): boolean;
    procedure SetmailFeature(Index: Integer; const Astring: string);
    function  mailFeature_Specified(Index: Integer): boolean;
    procedure SetmailNum(Index: Integer; const Astring: string);
    function  mailNum_Specified(Index: Integer): boolean;
    procedure SetmailType(Index: Integer; const Astring: string);
    function  mailType_Specified(Index: Integer): boolean;
    procedure SetpartWeight(Index: Integer; const ASingle: Single);
    function  partWeight_Specified(Index: Integer): boolean;
    procedure SetpostType(Index: Integer; const Astring: string);
    function  postType_Specified(Index: Integer): boolean;
  published
    property bagId:       string  Index (IS_OPTN or IS_NLBL) read FbagId write SetbagId stored bagId_Specified;
    property mailFeature: string  Index (IS_OPTN or IS_NLBL) read FmailFeature write SetmailFeature stored mailFeature_Specified;
    property mailNum:     string  Index (IS_OPTN or IS_NLBL) read FmailNum write SetmailNum stored mailNum_Specified;
    property mailType:    string  Index (IS_OPTN or IS_NLBL) read FmailType write SetmailType stored mailType_Specified;
    property partWeight:  Single  Index (IS_OPTN) read FpartWeight write SetpartWeight stored partWeight_Specified;
    property postType:    string  Index (IS_OPTN or IS_NLBL) read FpostType write SetpostType stored postType_Specified;
  end;



  // ************************************************************************ //
  // XML       : TbEvtPkgListVO, global, <complexType>
  // Namespace : http://vo.pkg.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  TbEvtPkgListVO = class(TRemotable)
  private
    FactionCode: string;
    FactionCode_Specified: boolean;
    FpkgNum: string;
    FpkgNum_Specified: boolean;
    FpkgStatus: string;
    FpkgStatus_Specified: boolean;
    FrcvOrg: string;
    FrcvOrg_Specified: boolean;
    FrcvOrgCode: string;
    FrcvOrgCode_Specified: boolean;
    FsealDate: string;
    FsealDate_Specified: boolean;
    FsealOrg: string;
    FsealOrg_Specified: boolean;
    FsealOrgCode: string;
    FsealOrgCode_Specified: boolean;
    procedure SetactionCode(Index: Integer; const Astring: string);
    function  actionCode_Specified(Index: Integer): boolean;
    procedure SetpkgNum(Index: Integer; const Astring: string);
    function  pkgNum_Specified(Index: Integer): boolean;
    procedure SetpkgStatus(Index: Integer; const Astring: string);
    function  pkgStatus_Specified(Index: Integer): boolean;
    procedure SetrcvOrg(Index: Integer; const Astring: string);
    function  rcvOrg_Specified(Index: Integer): boolean;
    procedure SetrcvOrgCode(Index: Integer; const Astring: string);
    function  rcvOrgCode_Specified(Index: Integer): boolean;
    procedure SetsealDate(Index: Integer; const Astring: string);
    function  sealDate_Specified(Index: Integer): boolean;
    procedure SetsealOrg(Index: Integer; const Astring: string);
    function  sealOrg_Specified(Index: Integer): boolean;
    procedure SetsealOrgCode(Index: Integer; const Astring: string);
    function  sealOrgCode_Specified(Index: Integer): boolean;
  published
    property actionCode:  string  Index (IS_OPTN or IS_NLBL) read FactionCode write SetactionCode stored actionCode_Specified;
    property pkgNum:      string  Index (IS_OPTN or IS_NLBL) read FpkgNum write SetpkgNum stored pkgNum_Specified;
    property pkgStatus:   string  Index (IS_OPTN or IS_NLBL) read FpkgStatus write SetpkgStatus stored pkgStatus_Specified;
    property rcvOrg:      string  Index (IS_OPTN or IS_NLBL) read FrcvOrg write SetrcvOrg stored rcvOrg_Specified;
    property rcvOrgCode:  string  Index (IS_OPTN or IS_NLBL) read FrcvOrgCode write SetrcvOrgCode stored rcvOrgCode_Specified;
    property sealDate:    string  Index (IS_OPTN or IS_NLBL) read FsealDate write SetsealDate stored sealDate_Specified;
    property sealOrg:     string  Index (IS_OPTN or IS_NLBL) read FsealOrg write SetsealOrg stored sealOrg_Specified;
    property sealOrgCode: string  Index (IS_OPTN or IS_NLBL) read FsealOrgCode write SetsealOrgCode stored sealOrgCode_Specified;
  end;



  // ************************************************************************ //
  // XML       : LastPkgMailInfoVO, global, <complexType>
  // Namespace : http://vo.pkg.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  LastPkgMailInfoVO = class(TRemotable)
  private
    FactionCode: string;
    FactionCode_Specified: boolean;
    FbagId: string;
    FbagId_Specified: boolean;
    FmailFeature: string;
    FmailFeature_Specified: boolean;
    FmailNum: string;
    FmailNum_Specified: boolean;
    FmailType: string;
    FmailType_Specified: boolean;
    FpartWeight: Single;
    FpartWeight_Specified: boolean;
    FpkgNum: string;
    FpkgNum_Specified: boolean;
    FpkgStatus: string;
    FpkgStatus_Specified: boolean;
    FpostType: string;
    FpostType_Specified: boolean;
    FrcvOrg: string;
    FrcvOrg_Specified: boolean;
    FrcvOrgCode: string;
    FrcvOrgCode_Specified: boolean;
    FsealDate: string;
    FsealDate_Specified: boolean;
    FsealOrg: string;
    FsealOrg_Specified: boolean;
    FsealOrgCode: string;
    FsealOrgCode_Specified: boolean;
    procedure SetactionCode(Index: Integer; const Astring: string);
    function  actionCode_Specified(Index: Integer): boolean;
    procedure SetbagId(Index: Integer; const Astring: string);
    function  bagId_Specified(Index: Integer): boolean;
    procedure SetmailFeature(Index: Integer; const Astring: string);
    function  mailFeature_Specified(Index: Integer): boolean;
    procedure SetmailNum(Index: Integer; const Astring: string);
    function  mailNum_Specified(Index: Integer): boolean;
    procedure SetmailType(Index: Integer; const Astring: string);
    function  mailType_Specified(Index: Integer): boolean;
    procedure SetpartWeight(Index: Integer; const ASingle: Single);
    function  partWeight_Specified(Index: Integer): boolean;
    procedure SetpkgNum(Index: Integer; const Astring: string);
    function  pkgNum_Specified(Index: Integer): boolean;
    procedure SetpkgStatus(Index: Integer; const Astring: string);
    function  pkgStatus_Specified(Index: Integer): boolean;
    procedure SetpostType(Index: Integer; const Astring: string);
    function  postType_Specified(Index: Integer): boolean;
    procedure SetrcvOrg(Index: Integer; const Astring: string);
    function  rcvOrg_Specified(Index: Integer): boolean;
    procedure SetrcvOrgCode(Index: Integer; const Astring: string);
    function  rcvOrgCode_Specified(Index: Integer): boolean;
    procedure SetsealDate(Index: Integer; const Astring: string);
    function  sealDate_Specified(Index: Integer): boolean;
    procedure SetsealOrg(Index: Integer; const Astring: string);
    function  sealOrg_Specified(Index: Integer): boolean;
    procedure SetsealOrgCode(Index: Integer; const Astring: string);
    function  sealOrgCode_Specified(Index: Integer): boolean;
  published
    property actionCode:  string  Index (IS_OPTN or IS_NLBL) read FactionCode write SetactionCode stored actionCode_Specified;
    property bagId:       string  Index (IS_OPTN or IS_NLBL) read FbagId write SetbagId stored bagId_Specified;
    property mailFeature: string  Index (IS_OPTN or IS_NLBL) read FmailFeature write SetmailFeature stored mailFeature_Specified;
    property mailNum:     string  Index (IS_OPTN or IS_NLBL) read FmailNum write SetmailNum stored mailNum_Specified;
    property mailType:    string  Index (IS_OPTN or IS_NLBL) read FmailType write SetmailType stored mailType_Specified;
    property partWeight:  Single  Index (IS_OPTN) read FpartWeight write SetpartWeight stored partWeight_Specified;
    property pkgNum:      string  Index (IS_OPTN or IS_NLBL) read FpkgNum write SetpkgNum stored pkgNum_Specified;
    property pkgStatus:   string  Index (IS_OPTN or IS_NLBL) read FpkgStatus write SetpkgStatus stored pkgStatus_Specified;
    property postType:    string  Index (IS_OPTN or IS_NLBL) read FpostType write SetpostType stored postType_Specified;
    property rcvOrg:      string  Index (IS_OPTN or IS_NLBL) read FrcvOrg write SetrcvOrg stored rcvOrg_Specified;
    property rcvOrgCode:  string  Index (IS_OPTN or IS_NLBL) read FrcvOrgCode write SetrcvOrgCode stored rcvOrgCode_Specified;
    property sealDate:    string  Index (IS_OPTN or IS_NLBL) read FsealDate write SetsealDate stored sealDate_Specified;
    property sealOrg:     string  Index (IS_OPTN or IS_NLBL) read FsealOrg write SetsealOrg stored sealOrg_Specified;
    property sealOrgCode: string  Index (IS_OPTN or IS_NLBL) read FsealOrgCode write SetsealOrgCode stored sealOrgCode_Specified;
  end;



  // ************************************************************************ //
  // XML       : IPkgService, global, <complexType>
  // Namespace : http://service.pkg.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  IPkgService = class(TRemotable)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : IQcgzBaseQueryService, global, <complexType>
  // Namespace : http://service.ttq.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  IQcgzBaseQueryService = class(TRemotable)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : StackStateAllVOSplitRoute, global, <complexType>
  // Namespace : http://ttqvo.ttq.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  StackStateAllVOSplitRoute = class(TRemotable)
  private
    FACTION: string;
    FACTION_Specified: boolean;
    FDESCRIPTION: string;
    FDESCRIPTION_Specified: boolean;
    FMEMO: string;
    FMEMO_Specified: boolean;
    FORG_FULL_NAME: string;
    FORG_FULL_NAME_Specified: boolean;
    FPROC_DATE: string;
    FPROC_DATE_Specified: boolean;
    FPROC_TIME: string;
    FPROC_TIME_Specified: boolean;
    FbagID: string;
    FbagID_Specified: boolean;
    Fflag: string;
    Fflag_Specified: boolean;
    FlabelStrip: string;
    FlabelStrip_Specified: boolean;
    procedure SetACTION(Index: Integer; const Astring: string);
    function  ACTION_Specified(Index: Integer): boolean;
    procedure SetDESCRIPTION(Index: Integer; const Astring: string);
    function  DESCRIPTION_Specified(Index: Integer): boolean;
    procedure SetMEMO(Index: Integer; const Astring: string);
    function  MEMO_Specified(Index: Integer): boolean;
    procedure SetORG_FULL_NAME(Index: Integer; const Astring: string);
    function  ORG_FULL_NAME_Specified(Index: Integer): boolean;
    procedure SetPROC_DATE(Index: Integer; const Astring: string);
    function  PROC_DATE_Specified(Index: Integer): boolean;
    procedure SetPROC_TIME(Index: Integer; const Astring: string);
    function  PROC_TIME_Specified(Index: Integer): boolean;
    procedure SetbagID(Index: Integer; const Astring: string);
    function  bagID_Specified(Index: Integer): boolean;
    procedure Setflag(Index: Integer; const Astring: string);
    function  flag_Specified(Index: Integer): boolean;
    procedure SetlabelStrip(Index: Integer; const Astring: string);
    function  labelStrip_Specified(Index: Integer): boolean;
  published
    property ACTION:        string  Index (IS_OPTN or IS_NLBL) read FACTION write SetACTION stored ACTION_Specified;
    property DESCRIPTION:   string  Index (IS_OPTN or IS_NLBL) read FDESCRIPTION write SetDESCRIPTION stored DESCRIPTION_Specified;
    property MEMO:          string  Index (IS_OPTN or IS_NLBL) read FMEMO write SetMEMO stored MEMO_Specified;
    property ORG_FULL_NAME: string  Index (IS_OPTN or IS_NLBL) read FORG_FULL_NAME write SetORG_FULL_NAME stored ORG_FULL_NAME_Specified;
    property PROC_DATE:     string  Index (IS_OPTN or IS_NLBL) read FPROC_DATE write SetPROC_DATE stored PROC_DATE_Specified;
    property PROC_TIME:     string  Index (IS_OPTN or IS_NLBL) read FPROC_TIME write SetPROC_TIME stored PROC_TIME_Specified;
    property bagID:         string  Index (IS_OPTN or IS_NLBL) read FbagID write SetbagID stored bagID_Specified;
    property flag:          string  Index (IS_OPTN or IS_NLBL) read Fflag write Setflag stored flag_Specified;
    property labelStrip:    string  Index (IS_OPTN or IS_NLBL) read FlabelStrip write SetlabelStrip stored labelStrip_Specified;
  end;



  // ************************************************************************ //
  // XML       : StackStateClctVO, global, <complexType>
  // Namespace : http://ttqvo.ttq.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  StackStateClctVO = class(TRemotable)
  private
    Factual_total_fee: string;
    Factual_total_fee_Specified: boolean;
    Factual_weight: string;
    Factual_weight_Specified: boolean;
    Fbasic_fee: string;
    Fbasic_fee_Specified: boolean;
    Fdata_src_sys: string;
    Fdata_src_sys_Specified: boolean;
    Flength: string;
    Flength_Specified: boolean;
    Fmail_num: string;
    Fmail_num_Specified: boolean;
    Fmail_prpty_code: string;
    Fmail_prpty_code_Specified: boolean;
    Forder_id: string;
    Forder_id_Specified: boolean;
    Fpay_side_code: string;
    Fpay_side_code_Specified: boolean;
    Fprod_code: string;
    Fprod_code_Specified: boolean;
    Frcver_addr: string;
    Frcver_addr_Specified: boolean;
    Frcver_contact_phone: string;
    Frcver_contact_phone_Specified: boolean;
    Frcver_dept_name: string;
    Frcver_dept_name_Specified: boolean;
    Frcver_name: string;
    Frcver_name_Specified: boolean;
    Fsender_addr: string;
    Fsender_addr_Specified: boolean;
    Fsender_contact_phone: string;
    Fsender_contact_phone_Specified: boolean;
    Fsender_dept_name: string;
    Fsender_dept_name_Specified: boolean;
    Fsender_home_area_name: string;
    Fsender_home_area_name_Specified: boolean;
    Fsender_name: string;
    Fsender_name_Specified: boolean;
    Fsender_post_code: string;
    Fsender_post_code_Specified: boolean;
    Fshould_pay_total_fee: string;
    Fshould_pay_total_fee_Specified: boolean;
    procedure Setactual_total_fee(Index: Integer; const Astring: string);
    function  actual_total_fee_Specified(Index: Integer): boolean;
    procedure Setactual_weight(Index: Integer; const Astring: string);
    function  actual_weight_Specified(Index: Integer): boolean;
    procedure Setbasic_fee(Index: Integer; const Astring: string);
    function  basic_fee_Specified(Index: Integer): boolean;
    procedure Setdata_src_sys(Index: Integer; const Astring: string);
    function  data_src_sys_Specified(Index: Integer): boolean;
    procedure Setlength(Index: Integer; const Astring: string);
    function  length_Specified(Index: Integer): boolean;
    procedure Setmail_num(Index: Integer; const Astring: string);
    function  mail_num_Specified(Index: Integer): boolean;
    procedure Setmail_prpty_code(Index: Integer; const Astring: string);
    function  mail_prpty_code_Specified(Index: Integer): boolean;
    procedure Setorder_id(Index: Integer; const Astring: string);
    function  order_id_Specified(Index: Integer): boolean;
    procedure Setpay_side_code(Index: Integer; const Astring: string);
    function  pay_side_code_Specified(Index: Integer): boolean;
    procedure Setprod_code(Index: Integer; const Astring: string);
    function  prod_code_Specified(Index: Integer): boolean;
    procedure Setrcver_addr(Index: Integer; const Astring: string);
    function  rcver_addr_Specified(Index: Integer): boolean;
    procedure Setrcver_contact_phone(Index: Integer; const Astring: string);
    function  rcver_contact_phone_Specified(Index: Integer): boolean;
    procedure Setrcver_dept_name(Index: Integer; const Astring: string);
    function  rcver_dept_name_Specified(Index: Integer): boolean;
    procedure Setrcver_name(Index: Integer; const Astring: string);
    function  rcver_name_Specified(Index: Integer): boolean;
    procedure Setsender_addr(Index: Integer; const Astring: string);
    function  sender_addr_Specified(Index: Integer): boolean;
    procedure Setsender_contact_phone(Index: Integer; const Astring: string);
    function  sender_contact_phone_Specified(Index: Integer): boolean;
    procedure Setsender_dept_name(Index: Integer; const Astring: string);
    function  sender_dept_name_Specified(Index: Integer): boolean;
    procedure Setsender_home_area_name(Index: Integer; const Astring: string);
    function  sender_home_area_name_Specified(Index: Integer): boolean;
    procedure Setsender_name(Index: Integer; const Astring: string);
    function  sender_name_Specified(Index: Integer): boolean;
    procedure Setsender_post_code(Index: Integer; const Astring: string);
    function  sender_post_code_Specified(Index: Integer): boolean;
    procedure Setshould_pay_total_fee(Index: Integer; const Astring: string);
    function  should_pay_total_fee_Specified(Index: Integer): boolean;
  published
    property actual_total_fee:      string  Index (IS_OPTN or IS_NLBL) read Factual_total_fee write Setactual_total_fee stored actual_total_fee_Specified;
    property actual_weight:         string  Index (IS_OPTN or IS_NLBL) read Factual_weight write Setactual_weight stored actual_weight_Specified;
    property basic_fee:             string  Index (IS_OPTN or IS_NLBL) read Fbasic_fee write Setbasic_fee stored basic_fee_Specified;
    property data_src_sys:          string  Index (IS_OPTN or IS_NLBL) read Fdata_src_sys write Setdata_src_sys stored data_src_sys_Specified;
    property length:                string  Index (IS_OPTN or IS_NLBL) read Flength write Setlength stored length_Specified;
    property mail_num:              string  Index (IS_OPTN or IS_NLBL) read Fmail_num write Setmail_num stored mail_num_Specified;
    property mail_prpty_code:       string  Index (IS_OPTN or IS_NLBL) read Fmail_prpty_code write Setmail_prpty_code stored mail_prpty_code_Specified;
    property order_id:              string  Index (IS_OPTN or IS_NLBL) read Forder_id write Setorder_id stored order_id_Specified;
    property pay_side_code:         string  Index (IS_OPTN or IS_NLBL) read Fpay_side_code write Setpay_side_code stored pay_side_code_Specified;
    property prod_code:             string  Index (IS_OPTN or IS_NLBL) read Fprod_code write Setprod_code stored prod_code_Specified;
    property rcver_addr:            string  Index (IS_OPTN or IS_NLBL) read Frcver_addr write Setrcver_addr stored rcver_addr_Specified;
    property rcver_contact_phone:   string  Index (IS_OPTN or IS_NLBL) read Frcver_contact_phone write Setrcver_contact_phone stored rcver_contact_phone_Specified;
    property rcver_dept_name:       string  Index (IS_OPTN or IS_NLBL) read Frcver_dept_name write Setrcver_dept_name stored rcver_dept_name_Specified;
    property rcver_name:            string  Index (IS_OPTN or IS_NLBL) read Frcver_name write Setrcver_name stored rcver_name_Specified;
    property sender_addr:           string  Index (IS_OPTN or IS_NLBL) read Fsender_addr write Setsender_addr stored sender_addr_Specified;
    property sender_contact_phone:  string  Index (IS_OPTN or IS_NLBL) read Fsender_contact_phone write Setsender_contact_phone stored sender_contact_phone_Specified;
    property sender_dept_name:      string  Index (IS_OPTN or IS_NLBL) read Fsender_dept_name write Setsender_dept_name stored sender_dept_name_Specified;
    property sender_home_area_name: string  Index (IS_OPTN or IS_NLBL) read Fsender_home_area_name write Setsender_home_area_name stored sender_home_area_name_Specified;
    property sender_name:           string  Index (IS_OPTN or IS_NLBL) read Fsender_name write Setsender_name stored sender_name_Specified;
    property sender_post_code:      string  Index (IS_OPTN or IS_NLBL) read Fsender_post_code write Setsender_post_code stored sender_post_code_Specified;
    property should_pay_total_fee:  string  Index (IS_OPTN or IS_NLBL) read Fshould_pay_total_fee write Setshould_pay_total_fee stored should_pay_total_fee_Specified;
  end;



  // ************************************************************************ //
  // XML       : StackStateAllVO, global, <complexType>
  // Namespace : http://ttqvo.ttq.track.ems.chinapost.gov/xsd
  // ************************************************************************ //
  StackStateAllVO = class(TRemotable)
  private
    FACTION: string;
    FACTION_Specified: boolean;
    FDESCRIPTION: string;
    FDESCRIPTION_Specified: boolean;
    FMAIL_NUM: string;
    FMAIL_NUM_Specified: boolean;
    FMEMO: string;
    FMEMO_Specified: boolean;
    FORG_FULL_NAME: string;
    FORG_FULL_NAME_Specified: boolean;
    FPROC_DATE: string;
    FPROC_DATE_Specified: boolean;
    FPROC_TIME: string;
    FPROC_TIME_Specified: boolean;
    FbagFlag: string;
    FbagFlag_Specified: boolean;
    FbagID: string;
    FbagID_Specified: boolean;
    FclctFlag: string;
    FclctFlag_Specified: boolean;
    FclctPostCode: string;
    FclctPostCode_Specified: boolean;
    FfeedbackCode: string;
    FfeedbackCode_Specified: boolean;
    Fflag: string;
    Fflag_Specified: boolean;
    FlabelStrip: string;
    FlabelStrip_Specified: boolean;
    FmailKind: string;
    FmailKind_Specified: boolean;
    FmailProperty: string;
    FmailProperty_Specified: boolean;
    FreceiverArea: string;
    FreceiverArea_Specified: boolean;
    FypdjQuantity: Integer;
    FypdjQuantity_Specified: boolean;
    procedure SetACTION(Index: Integer; const Astring: string);
    function  ACTION_Specified(Index: Integer): boolean;
    procedure SetDESCRIPTION(Index: Integer; const Astring: string);
    function  DESCRIPTION_Specified(Index: Integer): boolean;
    procedure SetMAIL_NUM(Index: Integer; const Astring: string);
    function  MAIL_NUM_Specified(Index: Integer): boolean;
    procedure SetMEMO(Index: Integer; const Astring: string);
    function  MEMO_Specified(Index: Integer): boolean;
    procedure SetORG_FULL_NAME(Index: Integer; const Astring: string);
    function  ORG_FULL_NAME_Specified(Index: Integer): boolean;
    procedure SetPROC_DATE(Index: Integer; const Astring: string);
    function  PROC_DATE_Specified(Index: Integer): boolean;
    procedure SetPROC_TIME(Index: Integer; const Astring: string);
    function  PROC_TIME_Specified(Index: Integer): boolean;
    procedure SetbagFlag(Index: Integer; const Astring: string);
    function  bagFlag_Specified(Index: Integer): boolean;
    procedure SetbagID(Index: Integer; const Astring: string);
    function  bagID_Specified(Index: Integer): boolean;
    procedure SetclctFlag(Index: Integer; const Astring: string);
    function  clctFlag_Specified(Index: Integer): boolean;
    procedure SetclctPostCode(Index: Integer; const Astring: string);
    function  clctPostCode_Specified(Index: Integer): boolean;
    procedure SetfeedbackCode(Index: Integer; const Astring: string);
    function  feedbackCode_Specified(Index: Integer): boolean;
    procedure Setflag(Index: Integer; const Astring: string);
    function  flag_Specified(Index: Integer): boolean;
    procedure SetlabelStrip(Index: Integer; const Astring: string);
    function  labelStrip_Specified(Index: Integer): boolean;
    procedure SetmailKind(Index: Integer; const Astring: string);
    function  mailKind_Specified(Index: Integer): boolean;
    procedure SetmailProperty(Index: Integer; const Astring: string);
    function  mailProperty_Specified(Index: Integer): boolean;
    procedure SetreceiverArea(Index: Integer; const Astring: string);
    function  receiverArea_Specified(Index: Integer): boolean;
    procedure SetypdjQuantity(Index: Integer; const AInteger: Integer);
    function  ypdjQuantity_Specified(Index: Integer): boolean;
  published
    property ACTION:        string   Index (IS_OPTN or IS_NLBL) read FACTION write SetACTION stored ACTION_Specified;
    property DESCRIPTION:   string   Index (IS_OPTN or IS_NLBL) read FDESCRIPTION write SetDESCRIPTION stored DESCRIPTION_Specified;
    property MAIL_NUM:      string   Index (IS_OPTN or IS_NLBL) read FMAIL_NUM write SetMAIL_NUM stored MAIL_NUM_Specified;
    property MEMO:          string   Index (IS_OPTN or IS_NLBL) read FMEMO write SetMEMO stored MEMO_Specified;
    property ORG_FULL_NAME: string   Index (IS_OPTN or IS_NLBL) read FORG_FULL_NAME write SetORG_FULL_NAME stored ORG_FULL_NAME_Specified;
    property PROC_DATE:     string   Index (IS_OPTN or IS_NLBL) read FPROC_DATE write SetPROC_DATE stored PROC_DATE_Specified;
    property PROC_TIME:     string   Index (IS_OPTN or IS_NLBL) read FPROC_TIME write SetPROC_TIME stored PROC_TIME_Specified;
    property bagFlag:       string   Index (IS_OPTN or IS_NLBL) read FbagFlag write SetbagFlag stored bagFlag_Specified;
    property bagID:         string   Index (IS_OPTN or IS_NLBL) read FbagID write SetbagID stored bagID_Specified;
    property clctFlag:      string   Index (IS_OPTN or IS_NLBL) read FclctFlag write SetclctFlag stored clctFlag_Specified;
    property clctPostCode:  string   Index (IS_OPTN or IS_NLBL) read FclctPostCode write SetclctPostCode stored clctPostCode_Specified;
    property feedbackCode:  string   Index (IS_OPTN or IS_NLBL) read FfeedbackCode write SetfeedbackCode stored feedbackCode_Specified;
    property flag:          string   Index (IS_OPTN or IS_NLBL) read Fflag write Setflag stored flag_Specified;
    property labelStrip:    string   Index (IS_OPTN or IS_NLBL) read FlabelStrip write SetlabelStrip stored labelStrip_Specified;
    property mailKind:      string   Index (IS_OPTN or IS_NLBL) read FmailKind write SetmailKind stored mailKind_Specified;
    property mailProperty:  string   Index (IS_OPTN or IS_NLBL) read FmailProperty write SetmailProperty stored mailProperty_Specified;
    property receiverArea:  string   Index (IS_OPTN or IS_NLBL) read FreceiverArea write SetreceiverArea stored receiverArea_Specified;
    property ypdjQuantity:  Integer  Index (IS_OPTN) read FypdjQuantity write SetypdjQuantity stored ypdjQuantity_Specified;
  end;



  // ************************************************************************ //
  // XML       : return, alias
  // Namespace : http://ws.services.ems.chinapost.gov
  // ************************************************************************ //
  return = class(TbEvtMailInfoVO)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : return, alias
  // Namespace : http://ws.services.ems.chinapost.gov
  // ************************************************************************ //
  return2 = class(TbEvtPkgListVO)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : return, alias
  // Namespace : http://ws.services.ems.chinapost.gov
  // ************************************************************************ //
  return3 = class(StackStateAllVOSplitRoute)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : return, alias
  // Namespace : http://ws.services.ems.chinapost.gov
  // ************************************************************************ //
  return4 = class(StackStateAllVO)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : return, alias
  // Namespace : http://ws.services.ems.chinapost.gov
  // ************************************************************************ //
  return5 = class(LastPkgMailInfoVO)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : return, alias
  // Namespace : http://ws.services.ems.chinapost.gov
  // ************************************************************************ //
  return6 = class(StackStateClctVO)
  private
  published
  end;

  Array_Of_LastPkgMailInfoVO = array of LastPkgMailInfoVO;   { "http://vo.pkg.track.ems.chinapost.gov/xsd"[GblUbnd] }
  Array_Of_TbEvtMailInfoVO = array of TbEvtMailInfoVO;   { "http://vo.pkg.track.ems.chinapost.gov/xsd"[GblUbnd] }
  Array_Of_TbEvtPkgListVO = array of TbEvtPkgListVO;   { "http://vo.pkg.track.ems.chinapost.gov/xsd"[GblUbnd] }
  Array_Of_StackStateAllVOSplitRoute = array of StackStateAllVOSplitRoute;   { "http://ttqvo.ttq.track.ems.chinapost.gov/xsd"[GblUbnd] }
  Array_Of_StackStateClctVO = array of StackStateClctVO;   { "http://ttqvo.ttq.track.ems.chinapost.gov/xsd"[GblUbnd] }
  Array_Of_StackStateAllVO = array of StackStateAllVO;   { "http://ttqvo.ttq.track.ems.chinapost.gov/xsd"[GblUbnd] }

  // ************************************************************************ //
  // Namespace : http://ws.services.ems.chinapost.gov
  // soapAction: urn:%operationName%
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // binding   : mailandpkgserviceSoap12Binding
  // service   : mailandpkgservice
  // port      : mailandpkgserviceHttpSoap12Endpoint
  // URL       : http://10.3.7.192:8082/t11183/services/mailandpkgservice.mailandpkgserviceHttpSoap12Endpoint/
  // ************************************************************************ //
  mailandpkgservicePortType = interface(IInvokable)
  ['{7F5D6208-415F-2C84-5E3C-88F04228D4EC}']
    function  getPkgService: IPkgService; stdcall;
    function  queryLastPackageMailList(const mailNum: string): Array_Of_LastPkgMailInfoVO; stdcall;
    function  queryPackageMailList(const package_num: string; const from_org_code: string; const to_org_code: string; const date: string; const action_code: string): Array_Of_TbEvtMailInfoVO; stdcall;
    function  queryPackageList(const package_num: string; const from_org_code: string; const to_org_code: string): Array_Of_TbEvtPkgListVO; stdcall;
    procedure setQcgzBaseQueryService(const qcgzBaseQueryService: IQcgzBaseQueryService); stdcall;
    function  getQcgzBaseQueryService: IQcgzBaseQueryService; stdcall;
    function  queryVoice(const mailNum: string): string; stdcall;
    function  queryMailRoute(const bag_id: string; const label_strip: string; const proc_date: string): Array_Of_StackStateAllVOSplitRoute; stdcall;
    function  queryClctMailInfoByMailNum(const mailNum: string): Array_Of_StackStateClctVO; stdcall;
    procedure setPkgService(const pkgService: IPkgService); stdcall;
    function  queryMail(const mailNum: string): Array_Of_StackStateAllVO; stdcall;
  end;

function GetmailandpkgservicePortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): mailandpkgservicePortType;


implementation
  uses SysUtils;

function GetmailandpkgservicePortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): mailandpkgservicePortType;
const
  defWSDL = 'http://10.3.7.192:8082/t11183/services/mailandpkgservice?wsdl';
  defURL  = 'http://10.3.7.192:8082/t11183/services/mailandpkgservice.mailandpkgserviceHttpSoap12Endpoint/';
  defSvc  = 'mailandpkgservice';
  defPrt  = 'mailandpkgserviceHttpSoap12Endpoint';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as mailandpkgservicePortType);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


procedure TbEvtMailInfoVO.SetbagId(Index: Integer; const Astring: string);
begin
  FbagId := Astring;
  FbagId_Specified := True;
end;

function TbEvtMailInfoVO.bagId_Specified(Index: Integer): boolean;
begin
  Result := FbagId_Specified;
end;

procedure TbEvtMailInfoVO.SetmailFeature(Index: Integer; const Astring: string);
begin
  FmailFeature := Astring;
  FmailFeature_Specified := True;
end;

function TbEvtMailInfoVO.mailFeature_Specified(Index: Integer): boolean;
begin
  Result := FmailFeature_Specified;
end;

procedure TbEvtMailInfoVO.SetmailNum(Index: Integer; const Astring: string);
begin
  FmailNum := Astring;
  FmailNum_Specified := True;
end;

function TbEvtMailInfoVO.mailNum_Specified(Index: Integer): boolean;
begin
  Result := FmailNum_Specified;
end;

procedure TbEvtMailInfoVO.SetmailType(Index: Integer; const Astring: string);
begin
  FmailType := Astring;
  FmailType_Specified := True;
end;

function TbEvtMailInfoVO.mailType_Specified(Index: Integer): boolean;
begin
  Result := FmailType_Specified;
end;

procedure TbEvtMailInfoVO.SetpartWeight(Index: Integer; const ASingle: Single);
begin
  FpartWeight := ASingle;
  FpartWeight_Specified := True;
end;

function TbEvtMailInfoVO.partWeight_Specified(Index: Integer): boolean;
begin
  Result := FpartWeight_Specified;
end;

procedure TbEvtMailInfoVO.SetpostType(Index: Integer; const Astring: string);
begin
  FpostType := Astring;
  FpostType_Specified := True;
end;

function TbEvtMailInfoVO.postType_Specified(Index: Integer): boolean;
begin
  Result := FpostType_Specified;
end;

procedure TbEvtPkgListVO.SetactionCode(Index: Integer; const Astring: string);
begin
  FactionCode := Astring;
  FactionCode_Specified := True;
end;

function TbEvtPkgListVO.actionCode_Specified(Index: Integer): boolean;
begin
  Result := FactionCode_Specified;
end;

procedure TbEvtPkgListVO.SetpkgNum(Index: Integer; const Astring: string);
begin
  FpkgNum := Astring;
  FpkgNum_Specified := True;
end;

function TbEvtPkgListVO.pkgNum_Specified(Index: Integer): boolean;
begin
  Result := FpkgNum_Specified;
end;

procedure TbEvtPkgListVO.SetpkgStatus(Index: Integer; const Astring: string);
begin
  FpkgStatus := Astring;
  FpkgStatus_Specified := True;
end;

function TbEvtPkgListVO.pkgStatus_Specified(Index: Integer): boolean;
begin
  Result := FpkgStatus_Specified;
end;

procedure TbEvtPkgListVO.SetrcvOrg(Index: Integer; const Astring: string);
begin
  FrcvOrg := Astring;
  FrcvOrg_Specified := True;
end;

function TbEvtPkgListVO.rcvOrg_Specified(Index: Integer): boolean;
begin
  Result := FrcvOrg_Specified;
end;

procedure TbEvtPkgListVO.SetrcvOrgCode(Index: Integer; const Astring: string);
begin
  FrcvOrgCode := Astring;
  FrcvOrgCode_Specified := True;
end;

function TbEvtPkgListVO.rcvOrgCode_Specified(Index: Integer): boolean;
begin
  Result := FrcvOrgCode_Specified;
end;

procedure TbEvtPkgListVO.SetsealDate(Index: Integer; const Astring: string);
begin
  FsealDate := Astring;
  FsealDate_Specified := True;
end;

function TbEvtPkgListVO.sealDate_Specified(Index: Integer): boolean;
begin
  Result := FsealDate_Specified;
end;

procedure TbEvtPkgListVO.SetsealOrg(Index: Integer; const Astring: string);
begin
  FsealOrg := Astring;
  FsealOrg_Specified := True;
end;

function TbEvtPkgListVO.sealOrg_Specified(Index: Integer): boolean;
begin
  Result := FsealOrg_Specified;
end;

procedure TbEvtPkgListVO.SetsealOrgCode(Index: Integer; const Astring: string);
begin
  FsealOrgCode := Astring;
  FsealOrgCode_Specified := True;
end;

function TbEvtPkgListVO.sealOrgCode_Specified(Index: Integer): boolean;
begin
  Result := FsealOrgCode_Specified;
end;

procedure LastPkgMailInfoVO.SetactionCode(Index: Integer; const Astring: string);
begin
  FactionCode := Astring;
  FactionCode_Specified := True;
end;

function LastPkgMailInfoVO.actionCode_Specified(Index: Integer): boolean;
begin
  Result := FactionCode_Specified;
end;

procedure LastPkgMailInfoVO.SetbagId(Index: Integer; const Astring: string);
begin
  FbagId := Astring;
  FbagId_Specified := True;
end;

function LastPkgMailInfoVO.bagId_Specified(Index: Integer): boolean;
begin
  Result := FbagId_Specified;
end;

procedure LastPkgMailInfoVO.SetmailFeature(Index: Integer; const Astring: string);
begin
  FmailFeature := Astring;
  FmailFeature_Specified := True;
end;

function LastPkgMailInfoVO.mailFeature_Specified(Index: Integer): boolean;
begin
  Result := FmailFeature_Specified;
end;

procedure LastPkgMailInfoVO.SetmailNum(Index: Integer; const Astring: string);
begin
  FmailNum := Astring;
  FmailNum_Specified := True;
end;

function LastPkgMailInfoVO.mailNum_Specified(Index: Integer): boolean;
begin
  Result := FmailNum_Specified;
end;

procedure LastPkgMailInfoVO.SetmailType(Index: Integer; const Astring: string);
begin
  FmailType := Astring;
  FmailType_Specified := True;
end;

function LastPkgMailInfoVO.mailType_Specified(Index: Integer): boolean;
begin
  Result := FmailType_Specified;
end;

procedure LastPkgMailInfoVO.SetpartWeight(Index: Integer; const ASingle: Single);
begin
  FpartWeight := ASingle;
  FpartWeight_Specified := True;
end;

function LastPkgMailInfoVO.partWeight_Specified(Index: Integer): boolean;
begin
  Result := FpartWeight_Specified;
end;

procedure LastPkgMailInfoVO.SetpkgNum(Index: Integer; const Astring: string);
begin
  FpkgNum := Astring;
  FpkgNum_Specified := True;
end;

function LastPkgMailInfoVO.pkgNum_Specified(Index: Integer): boolean;
begin
  Result := FpkgNum_Specified;
end;

procedure LastPkgMailInfoVO.SetpkgStatus(Index: Integer; const Astring: string);
begin
  FpkgStatus := Astring;
  FpkgStatus_Specified := True;
end;

function LastPkgMailInfoVO.pkgStatus_Specified(Index: Integer): boolean;
begin
  Result := FpkgStatus_Specified;
end;

procedure LastPkgMailInfoVO.SetpostType(Index: Integer; const Astring: string);
begin
  FpostType := Astring;
  FpostType_Specified := True;
end;

function LastPkgMailInfoVO.postType_Specified(Index: Integer): boolean;
begin
  Result := FpostType_Specified;
end;

procedure LastPkgMailInfoVO.SetrcvOrg(Index: Integer; const Astring: string);
begin
  FrcvOrg := Astring;
  FrcvOrg_Specified := True;
end;

function LastPkgMailInfoVO.rcvOrg_Specified(Index: Integer): boolean;
begin
  Result := FrcvOrg_Specified;
end;

procedure LastPkgMailInfoVO.SetrcvOrgCode(Index: Integer; const Astring: string);
begin
  FrcvOrgCode := Astring;
  FrcvOrgCode_Specified := True;
end;

function LastPkgMailInfoVO.rcvOrgCode_Specified(Index: Integer): boolean;
begin
  Result := FrcvOrgCode_Specified;
end;

procedure LastPkgMailInfoVO.SetsealDate(Index: Integer; const Astring: string);
begin
  FsealDate := Astring;
  FsealDate_Specified := True;
end;

function LastPkgMailInfoVO.sealDate_Specified(Index: Integer): boolean;
begin
  Result := FsealDate_Specified;
end;

procedure LastPkgMailInfoVO.SetsealOrg(Index: Integer; const Astring: string);
begin
  FsealOrg := Astring;
  FsealOrg_Specified := True;
end;

function LastPkgMailInfoVO.sealOrg_Specified(Index: Integer): boolean;
begin
  Result := FsealOrg_Specified;
end;

procedure LastPkgMailInfoVO.SetsealOrgCode(Index: Integer; const Astring: string);
begin
  FsealOrgCode := Astring;
  FsealOrgCode_Specified := True;
end;

function LastPkgMailInfoVO.sealOrgCode_Specified(Index: Integer): boolean;
begin
  Result := FsealOrgCode_Specified;
end;

procedure StackStateAllVOSplitRoute.SetACTION(Index: Integer; const Astring: string);
begin
  FACTION := Astring;
  FACTION_Specified := True;
end;

function StackStateAllVOSplitRoute.ACTION_Specified(Index: Integer): boolean;
begin
  Result := FACTION_Specified;
end;

procedure StackStateAllVOSplitRoute.SetDESCRIPTION(Index: Integer; const Astring: string);
begin
  FDESCRIPTION := Astring;
  FDESCRIPTION_Specified := True;
end;

function StackStateAllVOSplitRoute.DESCRIPTION_Specified(Index: Integer): boolean;
begin
  Result := FDESCRIPTION_Specified;
end;

procedure StackStateAllVOSplitRoute.SetMEMO(Index: Integer; const Astring: string);
begin
  FMEMO := Astring;
  FMEMO_Specified := True;
end;

function StackStateAllVOSplitRoute.MEMO_Specified(Index: Integer): boolean;
begin
  Result := FMEMO_Specified;
end;

procedure StackStateAllVOSplitRoute.SetORG_FULL_NAME(Index: Integer; const Astring: string);
begin
  FORG_FULL_NAME := Astring;
  FORG_FULL_NAME_Specified := True;
end;

function StackStateAllVOSplitRoute.ORG_FULL_NAME_Specified(Index: Integer): boolean;
begin
  Result := FORG_FULL_NAME_Specified;
end;

procedure StackStateAllVOSplitRoute.SetPROC_DATE(Index: Integer; const Astring: string);
begin
  FPROC_DATE := Astring;
  FPROC_DATE_Specified := True;
end;

function StackStateAllVOSplitRoute.PROC_DATE_Specified(Index: Integer): boolean;
begin
  Result := FPROC_DATE_Specified;
end;

procedure StackStateAllVOSplitRoute.SetPROC_TIME(Index: Integer; const Astring: string);
begin
  FPROC_TIME := Astring;
  FPROC_TIME_Specified := True;
end;

function StackStateAllVOSplitRoute.PROC_TIME_Specified(Index: Integer): boolean;
begin
  Result := FPROC_TIME_Specified;
end;

procedure StackStateAllVOSplitRoute.SetbagID(Index: Integer; const Astring: string);
begin
  FbagID := Astring;
  FbagID_Specified := True;
end;

function StackStateAllVOSplitRoute.bagID_Specified(Index: Integer): boolean;
begin
  Result := FbagID_Specified;
end;

procedure StackStateAllVOSplitRoute.Setflag(Index: Integer; const Astring: string);
begin
  Fflag := Astring;
  Fflag_Specified := True;
end;

function StackStateAllVOSplitRoute.flag_Specified(Index: Integer): boolean;
begin
  Result := Fflag_Specified;
end;

procedure StackStateAllVOSplitRoute.SetlabelStrip(Index: Integer; const Astring: string);
begin
  FlabelStrip := Astring;
  FlabelStrip_Specified := True;
end;

function StackStateAllVOSplitRoute.labelStrip_Specified(Index: Integer): boolean;
begin
  Result := FlabelStrip_Specified;
end;

procedure StackStateClctVO.Setactual_total_fee(Index: Integer; const Astring: string);
begin
  Factual_total_fee := Astring;
  Factual_total_fee_Specified := True;
end;

function StackStateClctVO.actual_total_fee_Specified(Index: Integer): boolean;
begin
  Result := Factual_total_fee_Specified;
end;

procedure StackStateClctVO.Setactual_weight(Index: Integer; const Astring: string);
begin
  Factual_weight := Astring;
  Factual_weight_Specified := True;
end;

function StackStateClctVO.actual_weight_Specified(Index: Integer): boolean;
begin
  Result := Factual_weight_Specified;
end;

procedure StackStateClctVO.Setbasic_fee(Index: Integer; const Astring: string);
begin
  Fbasic_fee := Astring;
  Fbasic_fee_Specified := True;
end;

function StackStateClctVO.basic_fee_Specified(Index: Integer): boolean;
begin
  Result := Fbasic_fee_Specified;
end;

procedure StackStateClctVO.Setdata_src_sys(Index: Integer; const Astring: string);
begin
  Fdata_src_sys := Astring;
  Fdata_src_sys_Specified := True;
end;

function StackStateClctVO.data_src_sys_Specified(Index: Integer): boolean;
begin
  Result := Fdata_src_sys_Specified;
end;

procedure StackStateClctVO.Setlength(Index: Integer; const Astring: string);
begin
  Flength := Astring;
  Flength_Specified := True;
end;

function StackStateClctVO.length_Specified(Index: Integer): boolean;
begin
  Result := Flength_Specified;
end;

procedure StackStateClctVO.Setmail_num(Index: Integer; const Astring: string);
begin
  Fmail_num := Astring;
  Fmail_num_Specified := True;
end;

function StackStateClctVO.mail_num_Specified(Index: Integer): boolean;
begin
  Result := Fmail_num_Specified;
end;

procedure StackStateClctVO.Setmail_prpty_code(Index: Integer; const Astring: string);
begin
  Fmail_prpty_code := Astring;
  Fmail_prpty_code_Specified := True;
end;

function StackStateClctVO.mail_prpty_code_Specified(Index: Integer): boolean;
begin
  Result := Fmail_prpty_code_Specified;
end;

procedure StackStateClctVO.Setorder_id(Index: Integer; const Astring: string);
begin
  Forder_id := Astring;
  Forder_id_Specified := True;
end;

function StackStateClctVO.order_id_Specified(Index: Integer): boolean;
begin
  Result := Forder_id_Specified;
end;

procedure StackStateClctVO.Setpay_side_code(Index: Integer; const Astring: string);
begin
  Fpay_side_code := Astring;
  Fpay_side_code_Specified := True;
end;

function StackStateClctVO.pay_side_code_Specified(Index: Integer): boolean;
begin
  Result := Fpay_side_code_Specified;
end;

procedure StackStateClctVO.Setprod_code(Index: Integer; const Astring: string);
begin
  Fprod_code := Astring;
  Fprod_code_Specified := True;
end;

function StackStateClctVO.prod_code_Specified(Index: Integer): boolean;
begin
  Result := Fprod_code_Specified;
end;

procedure StackStateClctVO.Setrcver_addr(Index: Integer; const Astring: string);
begin
  Frcver_addr := Astring;
  Frcver_addr_Specified := True;
end;

function StackStateClctVO.rcver_addr_Specified(Index: Integer): boolean;
begin
  Result := Frcver_addr_Specified;
end;

procedure StackStateClctVO.Setrcver_contact_phone(Index: Integer; const Astring: string);
begin
  Frcver_contact_phone := Astring;
  Frcver_contact_phone_Specified := True;
end;

function StackStateClctVO.rcver_contact_phone_Specified(Index: Integer): boolean;
begin
  Result := Frcver_contact_phone_Specified;
end;

procedure StackStateClctVO.Setrcver_dept_name(Index: Integer; const Astring: string);
begin
  Frcver_dept_name := Astring;
  Frcver_dept_name_Specified := True;
end;

function StackStateClctVO.rcver_dept_name_Specified(Index: Integer): boolean;
begin
  Result := Frcver_dept_name_Specified;
end;

procedure StackStateClctVO.Setrcver_name(Index: Integer; const Astring: string);
begin
  Frcver_name := Astring;
  Frcver_name_Specified := True;
end;

function StackStateClctVO.rcver_name_Specified(Index: Integer): boolean;
begin
  Result := Frcver_name_Specified;
end;

procedure StackStateClctVO.Setsender_addr(Index: Integer; const Astring: string);
begin
  Fsender_addr := Astring;
  Fsender_addr_Specified := True;
end;

function StackStateClctVO.sender_addr_Specified(Index: Integer): boolean;
begin
  Result := Fsender_addr_Specified;
end;

procedure StackStateClctVO.Setsender_contact_phone(Index: Integer; const Astring: string);
begin
  Fsender_contact_phone := Astring;
  Fsender_contact_phone_Specified := True;
end;

function StackStateClctVO.sender_contact_phone_Specified(Index: Integer): boolean;
begin
  Result := Fsender_contact_phone_Specified;
end;

procedure StackStateClctVO.Setsender_dept_name(Index: Integer; const Astring: string);
begin
  Fsender_dept_name := Astring;
  Fsender_dept_name_Specified := True;
end;

function StackStateClctVO.sender_dept_name_Specified(Index: Integer): boolean;
begin
  Result := Fsender_dept_name_Specified;
end;

procedure StackStateClctVO.Setsender_home_area_name(Index: Integer; const Astring: string);
begin
  Fsender_home_area_name := Astring;
  Fsender_home_area_name_Specified := True;
end;

function StackStateClctVO.sender_home_area_name_Specified(Index: Integer): boolean;
begin
  Result := Fsender_home_area_name_Specified;
end;

procedure StackStateClctVO.Setsender_name(Index: Integer; const Astring: string);
begin
  Fsender_name := Astring;
  Fsender_name_Specified := True;
end;

function StackStateClctVO.sender_name_Specified(Index: Integer): boolean;
begin
  Result := Fsender_name_Specified;
end;

procedure StackStateClctVO.Setsender_post_code(Index: Integer; const Astring: string);
begin
  Fsender_post_code := Astring;
  Fsender_post_code_Specified := True;
end;

function StackStateClctVO.sender_post_code_Specified(Index: Integer): boolean;
begin
  Result := Fsender_post_code_Specified;
end;

procedure StackStateClctVO.Setshould_pay_total_fee(Index: Integer; const Astring: string);
begin
  Fshould_pay_total_fee := Astring;
  Fshould_pay_total_fee_Specified := True;
end;

function StackStateClctVO.should_pay_total_fee_Specified(Index: Integer): boolean;
begin
  Result := Fshould_pay_total_fee_Specified;
end;

procedure StackStateAllVO.SetACTION(Index: Integer; const Astring: string);
begin
  FACTION := Astring;
  FACTION_Specified := True;
end;

function StackStateAllVO.ACTION_Specified(Index: Integer): boolean;
begin
  Result := FACTION_Specified;
end;

procedure StackStateAllVO.SetDESCRIPTION(Index: Integer; const Astring: string);
begin
  FDESCRIPTION := Astring;
  FDESCRIPTION_Specified := True;
end;

function StackStateAllVO.DESCRIPTION_Specified(Index: Integer): boolean;
begin
  Result := FDESCRIPTION_Specified;
end;

procedure StackStateAllVO.SetMAIL_NUM(Index: Integer; const Astring: string);
begin
  FMAIL_NUM := Astring;
  FMAIL_NUM_Specified := True;
end;

function StackStateAllVO.MAIL_NUM_Specified(Index: Integer): boolean;
begin
  Result := FMAIL_NUM_Specified;
end;

procedure StackStateAllVO.SetMEMO(Index: Integer; const Astring: string);
begin
  FMEMO := Astring;
  FMEMO_Specified := True;
end;

function StackStateAllVO.MEMO_Specified(Index: Integer): boolean;
begin
  Result := FMEMO_Specified;
end;

procedure StackStateAllVO.SetORG_FULL_NAME(Index: Integer; const Astring: string);
begin
  FORG_FULL_NAME := Astring;
  FORG_FULL_NAME_Specified := True;
end;

function StackStateAllVO.ORG_FULL_NAME_Specified(Index: Integer): boolean;
begin
  Result := FORG_FULL_NAME_Specified;
end;

procedure StackStateAllVO.SetPROC_DATE(Index: Integer; const Astring: string);
begin
  FPROC_DATE := Astring;
  FPROC_DATE_Specified := True;
end;

function StackStateAllVO.PROC_DATE_Specified(Index: Integer): boolean;
begin
  Result := FPROC_DATE_Specified;
end;

procedure StackStateAllVO.SetPROC_TIME(Index: Integer; const Astring: string);
begin
  FPROC_TIME := Astring;
  FPROC_TIME_Specified := True;
end;

function StackStateAllVO.PROC_TIME_Specified(Index: Integer): boolean;
begin
  Result := FPROC_TIME_Specified;
end;

procedure StackStateAllVO.SetbagFlag(Index: Integer; const Astring: string);
begin
  FbagFlag := Astring;
  FbagFlag_Specified := True;
end;

function StackStateAllVO.bagFlag_Specified(Index: Integer): boolean;
begin
  Result := FbagFlag_Specified;
end;

procedure StackStateAllVO.SetbagID(Index: Integer; const Astring: string);
begin
  FbagID := Astring;
  FbagID_Specified := True;
end;

function StackStateAllVO.bagID_Specified(Index: Integer): boolean;
begin
  Result := FbagID_Specified;
end;

procedure StackStateAllVO.SetclctFlag(Index: Integer; const Astring: string);
begin
  FclctFlag := Astring;
  FclctFlag_Specified := True;
end;

function StackStateAllVO.clctFlag_Specified(Index: Integer): boolean;
begin
  Result := FclctFlag_Specified;
end;

procedure StackStateAllVO.SetclctPostCode(Index: Integer; const Astring: string);
begin
  FclctPostCode := Astring;
  FclctPostCode_Specified := True;
end;

function StackStateAllVO.clctPostCode_Specified(Index: Integer): boolean;
begin
  Result := FclctPostCode_Specified;
end;

procedure StackStateAllVO.SetfeedbackCode(Index: Integer; const Astring: string);
begin
  FfeedbackCode := Astring;
  FfeedbackCode_Specified := True;
end;

function StackStateAllVO.feedbackCode_Specified(Index: Integer): boolean;
begin
  Result := FfeedbackCode_Specified;
end;

procedure StackStateAllVO.Setflag(Index: Integer; const Astring: string);
begin
  Fflag := Astring;
  Fflag_Specified := True;
end;

function StackStateAllVO.flag_Specified(Index: Integer): boolean;
begin
  Result := Fflag_Specified;
end;

procedure StackStateAllVO.SetlabelStrip(Index: Integer; const Astring: string);
begin
  FlabelStrip := Astring;
  FlabelStrip_Specified := True;
end;

function StackStateAllVO.labelStrip_Specified(Index: Integer): boolean;
begin
  Result := FlabelStrip_Specified;
end;

procedure StackStateAllVO.SetmailKind(Index: Integer; const Astring: string);
begin
  FmailKind := Astring;
  FmailKind_Specified := True;
end;

function StackStateAllVO.mailKind_Specified(Index: Integer): boolean;
begin
  Result := FmailKind_Specified;
end;

procedure StackStateAllVO.SetmailProperty(Index: Integer; const Astring: string);
begin
  FmailProperty := Astring;
  FmailProperty_Specified := True;
end;

function StackStateAllVO.mailProperty_Specified(Index: Integer): boolean;
begin
  Result := FmailProperty_Specified;
end;

procedure StackStateAllVO.SetreceiverArea(Index: Integer; const Astring: string);
begin
  FreceiverArea := Astring;
  FreceiverArea_Specified := True;
end;

function StackStateAllVO.receiverArea_Specified(Index: Integer): boolean;
begin
  Result := FreceiverArea_Specified;
end;

procedure StackStateAllVO.SetypdjQuantity(Index: Integer; const AInteger: Integer);
begin
  FypdjQuantity := AInteger;
  FypdjQuantity_Specified := True;
end;

function StackStateAllVO.ypdjQuantity_Specified(Index: Integer): boolean;
begin
  Result := FypdjQuantity_Specified;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(mailandpkgservicePortType), 'http://ws.services.ems.chinapost.gov', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(mailandpkgservicePortType), 'urn:%operationName%');
  InvRegistry.RegisterInvokeOptions(TypeInfo(mailandpkgservicePortType), ioDocument);
  InvRegistry.RegisterInvokeOptions(TypeInfo(mailandpkgservicePortType), ioSOAP12);
  RemClassRegistry.RegisterXSClass(TbEvtMailInfoVO, 'http://vo.pkg.track.ems.chinapost.gov/xsd', 'TbEvtMailInfoVO');
  RemClassRegistry.RegisterXSClass(TbEvtPkgListVO, 'http://vo.pkg.track.ems.chinapost.gov/xsd', 'TbEvtPkgListVO');
  RemClassRegistry.RegisterXSClass(LastPkgMailInfoVO, 'http://vo.pkg.track.ems.chinapost.gov/xsd', 'LastPkgMailInfoVO');
  RemClassRegistry.RegisterXSClass(IPkgService, 'http://service.pkg.track.ems.chinapost.gov/xsd', 'IPkgService');
  RemClassRegistry.RegisterXSClass(IQcgzBaseQueryService, 'http://service.ttq.track.ems.chinapost.gov/xsd', 'IQcgzBaseQueryService');
  RemClassRegistry.RegisterXSClass(StackStateAllVOSplitRoute, 'http://ttqvo.ttq.track.ems.chinapost.gov/xsd', 'StackStateAllVOSplitRoute');
  RemClassRegistry.RegisterXSClass(StackStateClctVO, 'http://ttqvo.ttq.track.ems.chinapost.gov/xsd', 'StackStateClctVO');
  RemClassRegistry.RegisterXSClass(StackStateAllVO, 'http://ttqvo.ttq.track.ems.chinapost.gov/xsd', 'StackStateAllVO');
  RemClassRegistry.RegisterXSClass(return, 'http://ws.services.ems.chinapost.gov', 'return');
  RemClassRegistry.RegisterXSClass(return2, 'http://ws.services.ems.chinapost.gov', 'return2', 'return');
  RemClassRegistry.RegisterXSClass(return3, 'http://ws.services.ems.chinapost.gov', 'return3', 'return');
  RemClassRegistry.RegisterXSClass(return4, 'http://ws.services.ems.chinapost.gov', 'return4', 'return');
  RemClassRegistry.RegisterXSClass(return5, 'http://ws.services.ems.chinapost.gov', 'return5', 'return');
  RemClassRegistry.RegisterXSClass(return6, 'http://ws.services.ems.chinapost.gov', 'return6', 'return');
  RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_LastPkgMailInfoVO), 'http://vo.pkg.track.ems.chinapost.gov/xsd', 'Array_Of_LastPkgMailInfoVO');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(Array_Of_LastPkgMailInfoVO), [xoInlineArrays]);
  RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_TbEvtMailInfoVO), 'http://vo.pkg.track.ems.chinapost.gov/xsd', 'Array_Of_TbEvtMailInfoVO');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(Array_Of_TbEvtMailInfoVO), [xoInlineArrays]);
  RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_TbEvtPkgListVO), 'http://vo.pkg.track.ems.chinapost.gov/xsd', 'Array_Of_TbEvtPkgListVO');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(Array_Of_TbEvtPkgListVO), [xoInlineArrays]);
  RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_StackStateAllVOSplitRoute), 'http://ttqvo.ttq.track.ems.chinapost.gov/xsd', 'Array_Of_StackStateAllVOSplitRoute');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(Array_Of_StackStateAllVOSplitRoute), [xoInlineArrays]);
  RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_StackStateClctVO), 'http://ttqvo.ttq.track.ems.chinapost.gov/xsd', 'Array_Of_StackStateClctVO');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(Array_Of_StackStateClctVO), [xoInlineArrays]);
  RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_StackStateAllVO), 'http://ttqvo.ttq.track.ems.chinapost.gov/xsd', 'Array_Of_StackStateAllVO');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(Array_Of_StackStateAllVO), [xoInlineArrays]);

end.